home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / compte.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.0 KB  |  19 lines
  1. 10 REM MEMO: CCP
  2. 20 REM 01/01/90,LIBELLE,DEBIT,CREDIT
  3. 30 REM % (FIN FICHIER)
  4. 40 RESTORE#:RESTORE# "CCP":READ# A$
  5. 50 SOLDE=0
  6. 60 READ# DATE$:IF DATE$="%" THEN 80
  7. 70 READ# L$,D$,C$:SOLDE=SOLDE-VAL(D$)+VAL(C$):GOTO 60
  8. 80 CLS:PRINT "SOLDE:";SOLDE;CHR$(13);
  9. 90 INPUT "DATE (JJ/MM/AA):",DATE$:LOCATE 0,0:LOCATE 0,1:PRINT "                                ";:LOCATE 0,0:LOCATE 0,1
  10. 100 INPUT "LIBELLE:",L$:LOCATE 0,0:LOCATE 0,1:PRINT "                                ";:LOCATE 0,0:LOCATE 0,1
  11. 110 INPUT "SOMME:",S:LOCATE 0,0:LOCATE 0,1:PRINT "                                ";:LOCATE 0,0:LOCATE 0,1
  12. 120 INPUT "Debit/Credit:",A$:LOCATE 0,0:LOCATE 0,1:PRINT "                                ";:LOCATE 0,0:LOCATE 0,1
  13. 130 IF A$<>"C" AND A$<>"D" THEN 120
  14. 140 IF A$="D" THEN D$=STR$(S):C$=""
  15. 150 IF A$="C" THEN C$=STR$(S):D$=""
  16. 160 CLS:PRINT DATE$","L$;CHR$(13)"Debit:"D$",Credit:"C$:INPUT "OK? (O/N):";A$:IF A$="N" THEN GOTO 50
  17. 170 RESTORE#:RESTORE# "%":WRITE# "%,,,"
  18. 180 RESTORE#:RESTORE# "%,,,":WRITE# DATE$,L$,D$,C$:WRITE# "%":GOTO 40
  19.